(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    116791,       3549]
NotebookOptionsPosition[    110183,       3341]
NotebookOutlinePosition[    110629,       3358]
CellTagsIndexPosition[    110586,       3355]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"sol", "=", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"centro", "+", 
        RowBox[{"r", " ", 
         RowBox[{"e", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"\[Lambda]", " ", 
         RowBox[{"e", "[", 
          RowBox[{"\[Theta]", "+", 
           FractionBox["\[Pi]", "2"]}], "]"}]}]}], "\[Equal]", "foco"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Lambda]", ",", "\[Theta]"}], "}"}]}], "]"}], "//", 
    "Simplify"}]}]}]], "Input",
 CellChangeTimes->{{3.4861378585*^9, 3.4861378599375*^9}, 
   3.486137933546875*^9, {3.48613799128125*^9, 3.486138073265625*^9}, {
   3.486138275890625*^9, 3.486138289640625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used by \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Solve\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", so some solutions may not be found; \
use Reduce for complete solution information.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.486137934109375*^9, 3.486138015515625*^9, {3.486138049421875*^9, 
   3.48613807453125*^9}, 3.48613829040625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "\[Rule]", 
      RowBox[{"-", "1.9119623427254`"}]}], ",", 
     RowBox[{"\[Theta]", "\[Rule]", 
      RowBox[{"-", "0.2139066173463474`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "\[Rule]", "1.9119623427254`"}], ",", 
     RowBox[{"\[Theta]", "\[Rule]", 
      RowBox[{"-", "2.728348731261122`"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.486137934171875*^9, 3.48613801559375*^9, {3.486138049578125*^9, 
   3.48613807525*^9}, 3.48613829046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"centro", "+", 
  RowBox[{"r", " ", 
   RowBox[{"e", "[", "\[Theta]", "]"}]}], "+", 
  RowBox[{"\[Lambda]", " ", 
   RowBox[{"e", "[", 
    RowBox[{"\[Theta]", "+", 
     FractionBox["\[Pi]", "2"]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.486137873078125*^9, 3.48613789925*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"2", "+", 
    RowBox[{"0.62`", " ", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "-", 
    RowBox[{"\[Lambda]", " ", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ",", 
   RowBox[{"3", "+", 
    RowBox[{"\[Lambda]", " ", 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", 
    RowBox[{"0.62`", " ", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.486137873765625*^9, 3.486137900890625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["sol"], "Input",
 CellChangeTimes->{{3.486142517171875*^9, 3.48614251765625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "\[Rule]", 
      RowBox[{"-", "1.9119623427254`"}]}], ",", 
     RowBox[{"\[Theta]", "\[Rule]", 
      RowBox[{"-", "0.2139066173463474`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "\[Rule]", "1.9119623427254`"}], ",", 
     RowBox[{"\[Theta]", "\[Rule]", 
      RowBox[{"-", "2.728348731261122`"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.486142518046875*^9}]
}, Open  ]],

Cell[BoxData["3"], "Input",
 CellChangeTimes->{3.486142518015625*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Off", "[", 
  RowBox[{"Solve", "::", "\"\<ifun\>\""}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"foco", "=", 
   RowBox[{"{", 
    RowBox[{"12", ",", "9"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"centro", "=", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r", "=", ".62"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", "=", "21"}], ";", 
  RowBox[{"h", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"polyPts", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "h"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "h"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"e", "[", "\[Theta]_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "\[Theta]", "]"}], ",", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"paredIzq", "=", " ", 
   RowBox[{"yIzq", 
    StyleBox["  ",
     FontSlant->"Italic"], 
    RowBox[{"e", "[", 
     FractionBox["\[Pi]", "2"], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"piso", "=", 
   RowBox[{"xPiso", " ", 
    RowBox[{"e", "[", "0", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"paredDer", "=", " ", 
   RowBox[{
    RowBox[{"a", "  ", 
     RowBox[{"e", "[", "0", "]"}]}], " ", "+", 
    RowBox[{"yDer", 
     StyleBox["  ",
      FontSlant->"Italic"], 
     RowBox[{"e", "[", 
      FractionBox["\[Pi]", "2"], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"techo", "=", " ", 
    RowBox[{
     RowBox[{"h", "  ", 
      RowBox[{"e", "[", 
       FractionBox["\[Pi]", "2"], "]"}]}], " ", "+", 
     RowBox[{"xTecho", "  ", 
      RowBox[{"e", "[", "0", "]"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"sol", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"centro", "+", 
      RowBox[{"r", " ", 
       RowBox[{"e", "[", "\[Theta]", "]"}]}], "+", 
      RowBox[{"\[Lambda]", " ", 
       RowBox[{"e", "[", 
        RowBox[{"\[Theta]", "+", 
         FractionBox["\[Pi]", "2"]}], "]"}]}]}], "==", "foco"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Lambda]", ",", "\[Theta]"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cono", "[", "\[Mu]", "]"}], "=", 
   RowBox[{
    RowBox[{"centro", "+", 
     RowBox[{"r", " ", 
      RowBox[{"e", "[", "\[Theta]", "]"}]}], "+", 
     RowBox[{"\[Mu]", " ", 
      RowBox[{"e", "[", 
       RowBox[{"\[Theta]", "+", 
        FractionBox["\[Pi]", "2"]}], "]"}]}]}], "/.", "sol"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"conoTecho", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"techo", "/.", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"cono", "[", "\[Mu]", "]"}], "[", 
            RowBox[{"[", "n", "]"}], "]"}], "\[Equal]", "techo"}], ",", 
          RowBox[{"{", 
           RowBox[{"xTecho", ",", "\[Mu]"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "2"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{
  "{", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FaceForm", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Opacity", "[", "0.05", "]"}], ",", "Green"}], "}"}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"EdgeForm", "[", 
       RowBox[{"{", "Thin", "}"}], "]"}], ",", 
      RowBox[{"Polygon", "[", "polyPts", "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2", ",", "4"}], "}"}], ",", " ", "1"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"10", ",", "5"}], "}"}], ",", " ", "3"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"15", ",", "7"}], "}"}], ",", " ", "2"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Circle", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"18", ",", "18"}], "}"}], ",", " ", "1"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", "Blue", ",", 
      RowBox[{"Point", "/@", 
       RowBox[{"{", 
        RowBox[{"foco", ",", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1.589"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4.289"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", "4.320"}], "}"}]}], "}"}]}]}], "}"}]}], "}"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"On", "[", 
  RowBox[{"Solve", "::", "\"\<ifun\>\""}], "]"}]}], "Input",
 CellChangeTimes->{{3.48611258925625*^9, 3.486112773740625*^9}, {
   3.486112811740625*^9, 3.48611336238125*^9}, {3.486113395584375*^9, 
   3.486113461975*^9}, {3.486113494475*^9, 3.486113596209375*^9}, {
   3.48611362750625*^9, 3.48611372350625*^9}, {3.48611378056875*^9, 
   3.486113886334375*^9}, 3.486113919615625*^9, {3.48611424750625*^9, 
   3.48611434019375*^9}, {3.486114543271875*^9, 3.486114599740625*^9}, {
   3.486114639021875*^9, 3.48611466700625*^9}, {3.48611478385*^9, 
   3.4861148442875*^9}, {3.48611487869375*^9, 3.486114886365625*^9}, {
   3.486115022615625*^9, 3.4861150235375*^9}, {3.486115073271875*^9, 
   3.486115113490625*^9}, {3.486118395521875*^9, 3.48611843831875*^9}, {
   3.486120124053125*^9, 3.48612025188125*^9}, 3.486121375225*^9, {
   3.486121413146875*^9, 3.486121419084375*^9}, {3.4861214512875*^9, 
   3.48612148038125*^9}, {3.4861216882875*^9, 3.486121691959375*^9}, {
   3.486121746615625*^9, 3.486121765725*^9}, {3.4861219044125*^9, 
   3.486121915928125*^9}, {3.4861220041*^9, 3.486122123365625*^9}, {
   3.486122233115625*^9, 3.486122255740625*^9}, {3.486122289990625*^9, 
   3.486122327709375*^9}, {3.48612236419375*^9, 3.486122475678125*^9}, {
   3.486122542709375*^9, 3.486122599225*^9}, {3.486122787053125*^9, 
   3.48612292831875*^9}, {3.486122964115625*^9, 3.48612296750625*^9}, {
   3.4861230076*^9, 3.48612300900625*^9}, {3.48612304731875*^9, 
   3.48612307438125*^9}, {3.4861239286*^9, 3.486123994990625*^9}, {
   3.486124351615625*^9, 3.486124360615625*^9}, {3.486124473365625*^9, 
   3.4861244740375*^9}, {3.486124711428125*^9, 3.486124717959375*^9}, {
   3.486124850975*^9, 3.486124853240625*^9}, {3.486124903740625*^9, 
   3.4861250090375*^9}, {3.48612505225625*^9, 3.48612505563125*^9}, {
   3.48612511069375*^9, 3.486125166553125*^9}, {3.48612806619375*^9, 
   3.486128109678125*^9}, {3.48612937844375*^9, 3.48612943294375*^9}, {
   3.486129468646875*^9, 3.486129510225*^9}, {3.486129542615625*^9, 
   3.48612963213125*^9}, {3.486129681709375*^9, 3.486129685475*^9}, {
   3.486131175459375*^9, 3.486131210209375*^9}, {3.486131338225*^9, 
   3.486131348365625*^9}, {3.4861314110375*^9, 3.486131476475*^9}, {
   3.4861315139125*^9, 3.486131530896875*^9}, {3.486131624975*^9, 
   3.486131635896875*^9}, {3.486131687709375*^9, 3.486131707209375*^9}, {
   3.48613175000625*^9, 3.486131754709375*^9}, {3.486131790146875*^9, 
   3.486131872459375*^9}, {3.486131911771875*^9, 3.486131975709375*^9}, {
   3.486132027475*^9, 3.486132039896875*^9}, {3.486132135865625*^9, 
   3.486132159240625*^9}, {3.486132216928125*^9, 3.48613230700625*^9}, {
   3.486132348740625*^9, 3.48613235856875*^9}, {3.4861333779125*^9, 
   3.486133388209375*^9}, 3.4861334287875*^9, 3.4861335529125*^9, {
   3.486137497421875*^9, 3.486137608984375*^9}, {3.486137640140625*^9, 
   3.486137643796875*^9}, 3.486142509671875*^9, {3.48642305071875*^9, 
   3.486423179171875*^9}, {3.48642332571875*^9, 3.48642335246875*^9}, {
   3.48642340809375*^9, 3.48642341625*^9}, {3.486424045921875*^9, 
   3.48642414884375*^9}, 3.4864242356875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "\[Rule]", 
      RowBox[{"-", "11.645411113395697`"}]}], ",", 
     RowBox[{"\[Theta]", "\[Rule]", "2.0580261890847997`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]", "\[Rule]", "11.645411113395697`"}], ",", 
     RowBox[{"\[Theta]", "\[Rule]", 
      RowBox[{"-", "0.9771871885436315`"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.486424125171875*^9, 3.486424149265625*^9}, 
   3.4864242365625*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[Thickness[Tiny]], FaceForm[{RGBColor[0, 1, 0], Opacity[0.05]}], 
    PolygonBox[{{0, 0}, {21, 0}, {21, 20}, {0, 20}, {0, 0}}]}, 
   CircleBox[{2, 4}], CircleBox[{10, 5}, 3], CircleBox[{15, 7}, 2], 
   CircleBox[{18, 18}], 
   {RGBColor[0, 0, 1], PointSize[0.02], PointBox[{12, 9}], 
    PointBox[{0, 1.589}], PointBox[{0, 4.289}], PointBox[{0, 4.32}]}, 
   LineBox[{{12.133301229460951`, 9.068084770585754}, {-0.12999325535446793`, 
    1.3540769494921887`}}], 
   LineBox[{{12.175247341710952`, 9.000716911094493}, {-0.2644241574069479, 
    4.261794435240056}}], 
   LineBox[{{11.971962445531249`, 8.92656549343402}, {-0.7732159304298722, 
    3.8914332955234574`}}], 
   LineBox[{{11.93991591848162, 9.029545390201632}, {
    14.568007837469402`, -0.37902367977461715`}}], 
   LineBox[{{12.045039595241132`, 8.819298036682605}, {20.901709362229955`, 
    20.067531449950316`}}], 
   LineBox[{{12.045039595241136`, 9.018234082582309}, {18.56270755433083, 
    21.054895071546348`}}]},
  ImageSize->{691.1999999999969, Automatic}]], "Input",
 CellChangeTimes->{{3.48642424084375*^9, 3.486424294984375*^9}, {
  3.486424334703125*^9, 3.486424342125*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[Thickness[Tiny]], FaceForm[{RGBColor[0, 1, 0], Opacity[0.05]}], 
    PolygonBox[{{0, 0}, {21, 0}, {21, 20}, {0, 20}, {0, 0}}]}, 
   CircleBox[{2, 4}], CircleBox[{10, 5}, 3], CircleBox[{15, 7}, 2], 
   CircleBox[{18, 18}], 
   {RGBColor[0, 0, 1], PointSize[0.02], PointBox[{12, 19}], 
    PointBox[{0, 1.589}], PointBox[{0, 4.289}], PointBox[{0, 4.32}]}, 
   LineBox[{{12.027583798882702`, 18.97796089385475}, {-0.046016734333589326`,
     1.4430765494675981`}}], 
   LineBox[{{12.081407480248092`, 19.07370092082686}, {0.029917450811240087`, 
    4.1318128761998665`}}]},
  ImageSize->{716.7999999999987, Automatic}]], "Input",
 CellChangeTimes->{{3.486424164765625*^9, 3.48642417246875*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {EdgeForm[Thickness[Tiny]], FaceForm[{RGBColor[0, 1, 0], Opacity[0.05]}], 
    PolygonBox[{{0, 0}, {21, 0}, {21, 20}, {0, 20}, {0, 0}}]}, 
   CircleBox[{2, 4}], CircleBox[{10, 5}, 3], CircleBox[{15, 7}, 2], 
   CircleBox[{18, 18}], 
   {RGBColor[0, 0, 1], PointSize[0.02], PointBox[{12, 19}]}, 
   LineBox[{{12.006113485280162`, 19.028143399810062`}, {-0.09198255695495483,
     2.9043016055898114`}}], 
   LineBox[{{11.96671916725223, 18.98215660623773}, {
    0.6370395530284334, -0.2762122407762}}], 
   LineBox[{{12.008449110582703`, 19.023886549568207`}, {4.935223716067295, 
    0.015897362537124593`}}], 
   LineBox[{{11.96671916725223, 18.94042666290726}, {
    13.489862098814545`, -1.2777308807075762`}}], 
   LineBox[{{11.987584138917464`, 18.961291634572497`}, {
    13.698511815466915`, -1.3820557390337669`}}], 
   LineBox[{{12.008449110582704`, 18.98215660623773}, {
    20.27097789001663, -0.2762122407762}}], 
   LineBox[{{11.987584138917466`, 19.003021577902967`}, {21.07884108427372, 
    15.86088208066002}}], 
   LineBox[{{12.032737131685575`, 19.020237872038805`}, {21.345261835277537`, 
    18.999073043167}}], PointBox[{-0.09325494800387624, 2.9969875176175975`}]},
  ImageSize->{843.1999999999992, Automatic}]], "Input",
 CellChangeTimes->{{3.486423456703125*^9, 3.486423524984375*^9}, 
   3.4864240334375*^9}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0, 0], Thickness[0.02], 
    LineBox[{{12, 19}, {16.030078427574423`, 25}, {12, 19}, {
      15.481200226780015`, 25}}]}, 
   {GrayLevel[0], Thickness[0.02], 
    LineBox[{{16.030078427574423`, 25}, {15.481200226780015`, 25}}]}, 
   {EdgeForm[Thickness[Tiny]], FaceForm[{RGBColor[0, 1, 0], Opacity[0.05]}], 
    PolygonBox[{{0, 0}, {20, 0}, {20, 25}, {0, 25}, {0, 0}}]}, 
   CircleBox[{2, 4}], CircleBox[{10, 5}, 3], CircleBox[{15, 7}, 2], 
   CircleBox[{18, 18}], 
   {RGBColor[0, 0, 1], PointSize[0.02], PointBox[{2, 3}], 
    PointBox[{11.952116550964142`, 18.85634965289244}]}, 
   LineBox[{{11.789270253555962`, 18.985899814471246`}, {-0.229475758150393, 
    2.7055267308849373`}}], 
   LineBox[{{11.942423926651418`, 18.74879009917912}, {
    0.8150274818330967, -0.05267285930701604}}], 
   LineBox[{{11.968125154847614`, 18.59126304331164}, {
    4.821866658512976, -0.24009380513775014`}}], 
   LineBox[{{11.672944312676503`, 18.92851797536311}, {13.412784427846624`, 
    0.3218945214604112}}], 
   LineBox[{{11.86625988102874, 18.735202407010874`}, {
    13.79205921859689, -0.7696883196408919}}], 
   LineBox[{{12.17005180423148, 18.944790585950265`}, {20.110514602153756`, 
    0.1540059523577888}}], 
   LineBox[{{11.873963932935373`, 18.65000862545234}, {19.617147987937837`, 
    16.52926394796759}}], 
   LineBox[{{11.775324645610501`, 18.502049694465033`}, {21.237199107680425`, 
    19.199240444301765`}}]}]], "Input",
 CellChangeTimes->{{3.48642321665625*^9, 3.486423275203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"punto_int", 
     RowBox[{"(", 
      RowBox[{"2", ",", "4"}], ")"}]}], ",", 
    RowBox[{"punto_int", 
     RowBox[{"(", 
      RowBox[{"10", ",", "5"}], ")"}]}], ",", 
    RowBox[{"punto_int", 
     RowBox[{"(", 
      RowBox[{"15", ",", "7"}], ")"}]}], ",", 
    RowBox[{"punto_int", 
     RowBox[{"(", 
      RowBox[{"18", ",", "18"}], ")"}]}]}], "}"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"int", " ", 
    RowBox[{"radios", "[", "4", "]"}]}], "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "2", ",", "1"}], "}"}]}], 
  ";"}], "\n"}], "Input"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Quit", "[", "]"}]}]], "Input",
 CellChangeTimes->{{3.486138480859375*^9, 3.4861384985625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "xc"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"y", "-", "yc"}], ")"}], "2"]}], "\[Equal]", 
       SuperscriptBox["r", "2"]}], ",", " ", 
      RowBox[{
       RowBox[{"y", " ", "-", "yc"}], " ", "\[Equal]", " ", 
       RowBox[{"m", 
        RowBox[{"(", 
         RowBox[{"x", "-", "xf"}], ")"}]}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "//", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"#", ",", 
     RowBox[{"r", ">", "0"}]}], "]"}], "&"}]}]], "Input",
 CellChangeTimes->{{3.486138477359375*^9, 3.486138625546875*^9}, {
  3.48613919534375*^9, 3.48613920965625*^9}, {3.48614014678125*^9, 
  3.4861401666875*^9}, {3.4869302291875*^9, 3.48693026571875*^9}, {
  3.486934088359375*^9, 3.486934107203125*^9}, {3.4869342031875*^9, 
  3.486934203328125*^9}, {3.48729786846875*^9, 3.48729787121875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox[
       RowBox[{"yc", "+", 
        RowBox[{"m", " ", 
         RowBox[{"(", 
          RowBox[{"xc", "-", 
           SqrtBox[
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", 
                SuperscriptBox["m", "2"]}], ")"}], " ", 
              SuperscriptBox["r", "2"]}], "-", 
             RowBox[{
              SuperscriptBox["m", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]}]], "-", "xf", "+", 
           RowBox[{"m", " ", "yc"}]}], ")"}]}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["m", "2"]}]]}], ",", 
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"xc", "-", 
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SuperscriptBox["m", "2"]}], ")"}], " ", 
           SuperscriptBox["r", "2"]}], "-", 
          RowBox[{
           SuperscriptBox["m", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]}]], "+", 
        RowBox[{
         SuperscriptBox["m", "2"], " ", "xf"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["m", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox[
       RowBox[{"yc", "+", 
        RowBox[{"m", " ", 
         RowBox[{"(", 
          RowBox[{"xc", "+", 
           SqrtBox[
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", 
                SuperscriptBox["m", "2"]}], ")"}], " ", 
              SuperscriptBox["r", "2"]}], "-", 
             RowBox[{
              SuperscriptBox["m", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]}]], "-", "xf", "+", 
           RowBox[{"m", " ", "yc"}]}], ")"}]}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["m", "2"]}]]}], ",", 
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"xc", "+", 
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SuperscriptBox["m", "2"]}], ")"}], " ", 
           SuperscriptBox["r", "2"]}], "-", 
          RowBox[{
           SuperscriptBox["m", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]}]], "+", 
        RowBox[{
         SuperscriptBox["m", "2"], " ", "xf"}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["m", "2"]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.48693126871875*^9, 3.486934110046875*^9, 
  3.4869342073125*^9, 3.487297826078125*^9, 3.48729787303125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"yc", "+", 
         RowBox[{"m", " ", 
          RowBox[{"(", 
           RowBox[{"xc", "-", 
            SqrtBox[
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 SuperscriptBox["m", "2"]}], ")"}], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{
               SuperscriptBox["m", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]}]], "-", "xf", "+", 
            RowBox[{"m", " ", "yc"}]}], ")"}]}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["m", "2"]}]], "==", 
       FractionBox[
        RowBox[{"yc", "+", 
         RowBox[{"m", " ", 
          RowBox[{"(", 
           RowBox[{"xc", "+", 
            SqrtBox[
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 SuperscriptBox["m", "2"]}], ")"}], " ", 
               SuperscriptBox["r", "2"]}], "-", 
              RowBox[{
               SuperscriptBox["m", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]}]], "-", "xf", "+", 
            RowBox[{"m", " ", "yc"}]}], ")"}]}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["m", "2"]}]]}], ",", 
      RowBox[{
       FractionBox[
        RowBox[{"xc", "-", 
         SqrtBox[
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              SuperscriptBox["m", "2"]}], ")"}], " ", 
            SuperscriptBox["r", "2"]}], "-", 
           RowBox[{
            SuperscriptBox["m", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]}]], "+", 
         RowBox[{
          SuperscriptBox["m", "2"], " ", "xf"}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["m", "2"]}]], "==", 
       FractionBox[
        RowBox[{"xc", "+", 
         SqrtBox[
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              SuperscriptBox["m", "2"]}], ")"}], " ", 
            SuperscriptBox["r", "2"]}], "-", 
           RowBox[{
            SuperscriptBox["m", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]}]], "+", 
         RowBox[{
          SuperscriptBox["m", "2"], " ", "xf"}]}], 
        RowBox[{"1", "+", 
         SuperscriptBox["m", "2"]}]]}]}], "}"}], ",", "m"}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.486934126234375*^9, 3.486934227*^9}, {
  3.487297877765625*^9, 3.487297889453125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"m", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["r", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", "\[Rule]", 
     FractionBox["r", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]]]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.4872978275*^9, 3.487297890328125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"m", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"-", 
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["e", "2"], "+", 
             RowBox[{"2", " ", "e", " ", "r"}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"xc", "-", "xf"}], ")"}], "2"]}], ")"}]}]]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", "r"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"m", "\[Rule]", 
      FractionBox[
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["e", "2"], "+", 
            RowBox[{"2", " ", "e", " ", "r"}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"xc", "-", "xf"}], ")"}], "2"]}], ")"}]}]], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"e", "+", "r"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], "}"}]}], "}"}], "/.", 
  RowBox[{"e", "\[Rule]", "0"}]}]], "Input",
 CellChangeTimes->{{3.4869342450625*^9, 3.48693426609375*^9}, {
  3.487297853328125*^9, 3.48729785425*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"m", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}]}], "-", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}]}], "+", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xf"}], ")"}], "2"]}]]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.48693424509375*^9, 3.48693426665625*^9}, {
  3.487297829296875*^9, 3.487297854625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "xc"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"y", "-", "yc"}], ")"}], "2"]}], "\[Equal]", 
       SuperscriptBox["r", "2"]}], ",", " ", 
      RowBox[{
       RowBox[{"y", " ", "-", "yf"}], " ", "\[Equal]", " ", 
       RowBox[{"m", 
        RowBox[{"(", 
         RowBox[{"x", "-", "xf"}], ")"}]}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}]}], "]"}], "//", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"#", ",", 
     RowBox[{"r", ">", "0"}]}], "]"}], "&"}]}]], "Input",
 CellChangeTimes->{{3.486138477359375*^9, 3.486138625546875*^9}, {
   3.48613919534375*^9, 3.48613920965625*^9}, {3.48614014678125*^9, 
   3.4861401666875*^9}, {3.4869302291875*^9, 3.48693026571875*^9}, {
   3.486931274609375*^9, 3.48693128059375*^9}, 3.486931412875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox[
       RowBox[{"yf", "+", 
        RowBox[{"m", " ", 
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf", "+", 
           RowBox[{"m", " ", "yc"}], "-", 
           SqrtBox[
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", 
                SuperscriptBox["m", "2"]}], ")"}], " ", 
              SuperscriptBox["r", "2"]}], "-", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"m", " ", "xc"}], "-", 
                RowBox[{"m", " ", "xf"}], "-", "yc", "+", "yf"}], ")"}], 
              "2"]}]]}], ")"}]}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["m", "2"]}]]}], ",", 
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"xc", "+", 
        RowBox[{"m", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"m", " ", "xf"}], "+", "yc", "-", "yf"}], ")"}]}], "-", 
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SuperscriptBox["m", "2"]}], ")"}], " ", 
           SuperscriptBox["r", "2"]}], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"m", " ", "xc"}], "-", 
             RowBox[{"m", " ", "xf"}], "-", "yc", "+", "yf"}], ")"}], 
           "2"]}]]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["m", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "\[Rule]", 
      FractionBox[
       RowBox[{"yf", "+", 
        RowBox[{"m", " ", 
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf", "+", 
           RowBox[{"m", " ", "yc"}], "+", 
           SqrtBox[
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", 
                SuperscriptBox["m", "2"]}], ")"}], " ", 
              SuperscriptBox["r", "2"]}], "-", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"m", " ", "xc"}], "-", 
                RowBox[{"m", " ", "xf"}], "-", "yc", "+", "yf"}], ")"}], 
              "2"]}]]}], ")"}]}]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["m", "2"]}]]}], ",", 
     RowBox[{"x", "\[Rule]", 
      FractionBox[
       RowBox[{"xc", "+", 
        RowBox[{"m", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"m", " ", "xf"}], "+", "yc", "-", "yf"}], ")"}]}], "+", 
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SuperscriptBox["m", "2"]}], ")"}], " ", 
           SuperscriptBox["r", "2"]}], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"m", " ", "xc"}], "-", 
             RowBox[{"m", " ", "xf"}], "-", "yc", "+", "yf"}], ")"}], 
           "2"]}]]}], 
       RowBox[{"1", "+", 
        SuperscriptBox["m", "2"]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4869312815*^9, 3.48693141303125*^9, 3.48729784103125*^9, 
  3.48729790015625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"/.", 
   RowBox[{"Limit", "[", 
    RowBox[{"#", ",", 
     RowBox[{"xf", "\[Rule]", " ", 
      RowBox[{"r", "+", "xc"}]}]}], "]"}]}], "&"}]], "Input"],

Cell[BoxData[
 RowBox[{"solM", "=", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"yf", "+", 
          RowBox[{"m", " ", 
           RowBox[{"(", 
            RowBox[{"xc", "-", "xf", "+", 
             RowBox[{"m", " ", "yc"}], "-", 
             SqrtBox[
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  SuperscriptBox["m", "2"]}], ")"}], " ", 
                SuperscriptBox["r", "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"m", " ", "xc"}], "-", 
                  RowBox[{"m", " ", "xf"}], "-", "yc", "+", "yf"}], ")"}], 
                "2"]}]]}], ")"}]}]}], 
         RowBox[{"1", "+", 
          SuperscriptBox["m", "2"]}]], "==", 
        FractionBox[
         RowBox[{"yf", "+", 
          RowBox[{"m", " ", 
           RowBox[{"(", 
            RowBox[{"xc", "-", "xf", "+", 
             RowBox[{"m", " ", "yc"}], "+", 
             SqrtBox[
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", 
                  SuperscriptBox["m", "2"]}], ")"}], " ", 
                SuperscriptBox["r", "2"]}], "-", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"m", " ", "xc"}], "-", 
                  RowBox[{"m", " ", "xf"}], "-", "yc", "+", "yf"}], ")"}], 
                "2"]}]]}], ")"}]}]}], 
         RowBox[{"1", "+", 
          SuperscriptBox["m", "2"]}]]}], ",", " ", "\[IndentingNewLine]", 
       RowBox[{
        FractionBox[
         RowBox[{"xc", "+", 
          RowBox[{"m", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"m", " ", "xf"}], "+", "yc", "-", "yf"}], ")"}]}], "-", 
          SqrtBox[
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", 
               SuperscriptBox["m", "2"]}], ")"}], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"m", " ", "xc"}], "-", 
               RowBox[{"m", " ", "xf"}], "-", "yc", "+", "yf"}], ")"}], 
             "2"]}]]}], 
         RowBox[{"1", "+", 
          SuperscriptBox["m", "2"]}]], "==", 
        FractionBox[
         RowBox[{"xc", "+", 
          RowBox[{"m", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"m", " ", "xf"}], "+", "yc", "-", "yf"}], ")"}]}], "+", 
          SqrtBox[
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", 
               SuperscriptBox["m", "2"]}], ")"}], " ", 
             SuperscriptBox["r", "2"]}], "-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"m", " ", "xc"}], "-", 
               RowBox[{"m", " ", "xf"}], "-", "yc", "+", "yf"}], ")"}], 
             "2"]}]]}], 
         RowBox[{"1", "+", 
          SuperscriptBox["m", "2"]}]]}]}], "}"}], ",", 
     RowBox[{"{", "m", "}"}]}], "]"}], "//", "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.48614017909375*^9, 3.486140242*^9}, {
  3.486930388703125*^9, 3.486930389984375*^9}, {3.48693051490625*^9, 
  3.486930533921875*^9}, {3.486930571203125*^9, 3.486930594625*^9}, {
  3.486933439578125*^9, 3.486933512921875*^9}, {3.4872979155*^9, 
  3.4872979436875*^9}, {3.48729815471875*^9, 3.487298165*^9}, {
  3.487298472859375*^9, 3.487298475015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"m", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["r", "2"]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", "\[Rule]", 
     FractionBox[
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], "}"}]}], "}"}]], \
"Input",
 CellChangeTimes->{3.4873245820625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"m", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["r", "2"]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", "\[Rule]", 
     FractionBox[
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.487324582109375*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"1", " ", "1", " ", "999994", " ", "999956"}], "\n", 
 RowBox[{"101087", " ", "101120"}], "\n", 
 RowBox[{"501088", " ", "501121", " ", "400000"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"r", " ", "=", " ", "399999."}], ";", " ", 
  RowBox[{"xf", " ", "=", "101086."}], ";", " ", 
  RowBox[{"yf", " ", "=", "101120."}], ";", 
  RowBox[{"xc", "=", "501088."}], ";", " ", 
  RowBox[{"yc", "=", "501121."}], ";"}]], "Input",
 CellChangeTimes->{{3.487324613796875*^9, 3.48732466140625*^9}, 
   3.487325895953125*^9, {3.487326202453125*^9, 3.487326219984375*^9}, {
   3.487326344703125*^9, 3.487326346*^9}, 3.487326402984375*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"a1", " ", "=", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"yc", "-", "yf"}], ")"}], "2"]}]}], "\[IndentingNewLine]", 
 RowBox[{"a2", " ", "=", " ", 
  SuperscriptBox["r", "2"]}], "\[IndentingNewLine]", 
 RowBox[{"a", "=", 
  RowBox[{"a1", "-", "a2"}]}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"sqrta", " ", "=", 
    SqrtBox["a"]}], ",", "20"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"sqrta2", " ", "=", 
  RowBox[{
   RowBox[{"r", 
    SqrtBox["a"]}], "//", "N"}]}], "\[IndentingNewLine]", 
 RowBox[{"b", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"xc", "-", "xf"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"yc", "-", "yf"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"c", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", " ", "r"}], " ", "sqrta"}], "-", "b"}], "c"], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"r", " ", "sqrta"}], "-", "b"}], "c"], "//", "N"}]}], "Input",
 CellChangeTimes->{{3.48732460009375*^9, 3.487324612578125*^9}, {
  3.48732466528125*^9, 3.487324665734375*^9}, {3.487324698046875*^9, 
  3.487324762484375*^9}, {3.487324858921875*^9, 3.487324896359375*^9}, {
  3.487324990015625*^9, 3.4873250408125*^9}, {3.487325144640625*^9, 
  3.48732515575*^9}, {3.487325301296875*^9, 3.487325310765625*^9}, {
  3.4873254379375*^9, 3.487325456875*^9}, {3.487325804640625*^9, 
  3.487325808515625*^9}, {3.48732587471875*^9, 3.487325877171875*^9}, {
  3.487326136484375*^9, 3.48732614659375*^9}, {3.487326270921875*^9, 
  3.4873262770625*^9}}],

Cell[BoxData["3.20001600002`*^11"], "Output",
 CellChangeTimes->{3.487326236734375*^9, 3.487326277421875*^9, 
  3.487326347875*^9}],

Cell[BoxData["1.59999200001`*^11"], "Output",
 CellChangeTimes->{3.487326236734375*^9, 3.487326277421875*^9, 
  3.487326347875*^9}],

Cell[BoxData["1.60002400001`*^11"], "Output",
 CellChangeTimes->{3.487326236734375*^9, 3.487326277421875*^9, 
  3.487326347875*^9}],

Cell[BoxData["400002.9999900001`"], "Output",
 CellChangeTimes->{3.487326236734375*^9, 3.487326277421875*^9, 
  3.487326347875*^9}],

Cell[BoxData["1.6000079999300006`*^11"], "Output",
 CellChangeTimes->{3.487326236734375*^9, 3.487326277421875*^9, 
  3.487326347875*^9}],

Cell[BoxData["1.60000800001`*^11"], "Output",
 CellChangeTimes->{3.487326236734375*^9, 3.487326277421875*^9, 
  3.487326347875*^9}],

Cell[BoxData[
 RowBox[{"-", "1.6`*^6"}]], "Output",
 CellChangeTimes->{3.487326236734375*^9, 3.487326277421875*^9, 
  3.487326347875*^9}],

Cell[BoxData["200000.99999625006`"], "Output",
 CellChangeTimes->{3.487326236734375*^9, 3.487326277421875*^9, 
  3.487326347875*^9}],

Cell[BoxData["4.999961853027344`*^-6"], "Output",
 CellChangeTimes->{3.487326236734375*^9, 3.487326277421875*^9, 
  3.487326347890625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", " ", "r"}], " ", "sqrta"}], "-", "b"}], 
    SuperscriptBox["10", "11"]], ",", "20"}], "]"}]], "Input",
 CellChangeTimes->{{3.4873261670625*^9, 3.4873262305*^9}}],

Cell[BoxData[
 RowBox[{"-", "3.2000159999999997`"}]], "Output",
 CellChangeTimes->{{3.487324663*^9, 3.4873246661875*^9}, 3.4873247009375*^9, 
   3.4873247381875*^9, 3.487324855890625*^9, {3.487324889671875*^9, 
   3.48732489675*^9}, {3.487324990796875*^9, 3.487325041390625*^9}, {
   3.487325148125*^9, 3.487325156578125*^9}, {3.487325304453125*^9, 
   3.487325311109375*^9}, 3.487325457390625*^9, {3.487325804984375*^9, 
   3.487325809015625*^9}, {3.487325874890625*^9, 3.4873258994375*^9}, {
   3.48732614096875*^9, 3.48732623065625*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"r", "-", "b"}]], "Input",
 CellChangeTimes->{{3.48732611675*^9, 3.48732611809375*^9}}],

Cell[BoxData[
 RowBox[{
  SqrtBox[
   FractionBox[
    RowBox[{
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " "}], "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"r", "-", "xc", "+", "xf"}], ")"}], "2"]}]]], "//", 
  "FunctionExpand"}]], "Input",
 CellChangeTimes->{{3.4872980241875*^9, 3.487298142734375*^9}, {
  3.487298182046875*^9, 3.48729818728125*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["r", "2"], 
  SqrtBox[
   FractionBox[
    RowBox[{" ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"xc", "-", "xf"}], "r"], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"yc", "-", "yf"}], "r"], ")"}], "2"]}], ")"}]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"(", 
          FractionBox[
           RowBox[{"xc", "-", "xf"}], "4"], ")"}]}], ")"}], " "}], "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"r", "-", "xc", "+", "xf"}], ")"}], "2"]}]]]}]], "Input",
 CellChangeTimes->{{3.487326017859375*^9, 3.48732611203125*^9}}],

Cell[BoxData[
 SqrtBox[
  FractionBox[
   RowBox[{
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"r", "-", "xc", "+", "xf"}], ")"}], "2"]}]]]], "Input",
 CellChangeTimes->{3.487298196265625*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SuperscriptBox["10", "24"], "/", 
  SuperscriptBox["2", "64"]}]], "Input",
 CellChangeTimes->{{3.487322618546875*^9, 3.48732264578125*^9}, {
  3.487323183203125*^9, 3.48732318975*^9}}],

Cell[BoxData[
 FractionBox["59604644775390625", "1099511627776"]], "Output",
 CellChangeTimes->{{3.4873226350625*^9, 3.487322646109375*^9}, {
  3.48732318346875*^9, 3.487323189828125*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"r", 
  SqrtBox[
   RowBox[{" ", 
    RowBox[{
     FractionBox[
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"r", "-", "xc", "+", "xf"}], ")"}], "2"]}]], "+", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"xc", "-", "xf"}], ")"}], "2"], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"r", "-", "xc", "+", "xf"}], ")"}], "2"]}]], "+", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"yc", "-", "yf"}], ")"}], "2"], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"r", "-", "xc", "+", "xf"}], ")"}], "2"]}]]}]}]]}]], "Input",
 CellChangeTimes->{{3.487298256359375*^9, 3.487298263390625*^9}, {
  3.48729831728125*^9, 3.48729835834375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SqrtBox[
    FractionBox[
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " "}], "2"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"r", "-", "xc", "+", "xf"}], ")"}], "2"]}]]], "==", 
   RowBox[{"r", 
    SqrtBox[
     RowBox[{" ", 
      RowBox[{
       FractionBox[
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"r", "-", "xc", "+", "xf"}], ")"}], "2"]}]], "+", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], "2"], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"r", "-", "xc", "+", "xf"}], ")"}], "2"]}]], "+", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}], "2"], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"r", "-", "xc", "+", "xf"}], ")"}], "2"]}]]}]}]]}]}], "//",
   "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.487297952953125*^9, 3.48729801825*^9}, {
  3.487298371515625*^9, 3.4872983780625*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.487298373640625*^9, 3.487298460140625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["A1", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "x1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "-", "x2"}], ")"}]}]], "\[Equal]", 
   RowBox[{
    FractionBox[
     FractionBox["A1", 
      RowBox[{"x1", "-", "x2"}]], 
     RowBox[{"(", 
      RowBox[{"x", "-", "x1"}], ")"}]], "+", 
    FractionBox[
     FractionBox["A1", 
      RowBox[{"x2", "-", "x1"}]], 
     RowBox[{"(", 
      RowBox[{"x", "-", "x2"}], ")"}]]}]}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.48693649178125*^9, 3.48693652584375*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.486936466*^9, 3.486936526765625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["A1", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "-", "x1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"x", "-", "x2"}], ")"}]}]], "\[Equal]", 
     RowBox[{
      FractionBox[
       FractionBox["A1", 
        RowBox[{"x1", "-", "x2"}]], 
       RowBox[{"(", 
        RowBox[{"x", "-", "x1"}], ")"}]], "+", 
      FractionBox[
       FractionBox["A1", 
        RowBox[{"x2", "-", "x1"}]], 
       RowBox[{"(", 
        RowBox[{"x", "-", "x2"}], ")"}]]}]}], "}"}], ",", 
   RowBox[{"{", "B1", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.486936338296875*^9, 3.486936449359375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"B1", "\[Rule]", 
    FractionBox[
     RowBox[{"A1", "-", 
      RowBox[{"C1", " ", "x"}], "+", 
      RowBox[{"C1", " ", "x1"}]}], 
     RowBox[{"x", "-", "x2"}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.486936406734375*^9, 3.4869364184375*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.48693513196875*^9, 3.486935134640625*^9}}],

Cell[BoxData[
 RowBox[{"g", ":=", 
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"xc", "-", "xf"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}]], "Input",
 CellChangeTimes->{{3.4869351228125*^9, 3.48693512434375*^9}, 
   3.48693517475*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "=", 
  RowBox[{
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"g", " ", 
      RowBox[{"(", 
       RowBox[{"r", "+", "xc", "-", "xf"}], ")"}]}], ",", 
     RowBox[{"r", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "xc"}], "+", "xf"}]}]}], "]"}], "//", 
   "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.486935154625*^9, 3.486935215703125*^9}, {
  3.486935845796875*^9, 3.486935907453125*^9}, {3.486935989390625*^9, 
  3.486936001484375*^9}, {3.48693624809375*^9, 3.4869362560625*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"yc", "-", 
    FractionBox[
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}], "2"]}]], 
     RowBox[{"xc", "-", "xf"}]], "-", "yf"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.48693598553125*^9, 3.486936003515625*^9}, 
   3.4869362579375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cC", "=", 
  RowBox[{
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{"g", " ", 
      RowBox[{"(", 
       RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}], ",", 
     RowBox[{"r", "\[Rule]", 
      RowBox[{"xc", "-", "xf"}]}]}], "]"}], "//", "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.486936016640625*^9, 3.48693606375*^9}, {
  3.48693626121875*^9, 3.486936265734375*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "yc"}], "+", 
    FractionBox[
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}], "2"]}]], 
     RowBox[{"xc", "-", "xf"}]], "+", "yf"}], ")"}]}]], "Output",
 CellChangeTimes->{3.486936068015625*^9, 3.486936268125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "\[Equal]", 
   RowBox[{
    FractionBox["B", 
     RowBox[{"(", 
      RowBox[{"r", "+", "xc", "-", "xf"}], ")"}]], "+", 
    FractionBox["cC", 
     RowBox[{"(", 
      RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]]}]}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.486936077796875*^9, 3.48693612078125*^9}, {
  3.486936286046875*^9, 3.486936315*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "-", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"xc", "-", "xf"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"yc", "-", "yf"}], ")"}]}], "+", 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"xc", "-", "xf"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"yc", "-", "yf"}], ")"}], "2"]}]]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], "\[Equal]", 
  "0"}]], "Output",
 CellChangeTimes->{
  3.486936123046875*^9, {3.4869362700625*^9, 3.486936298640625*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"yc", "-", 
     FractionBox[
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}]}], "]"}], 
      RowBox[{"xc", "-", "xf"}]], "-", "yf"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.486935951703125*^9, 3.486935974375*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"yc", "-", 
    FractionBox["\[Placeholder]", 
     RowBox[{"xc", "-", "xf"}]], "-", "yf"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.48693594503125*^9, 3.4869359450625*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  FractionBox[
   FractionBox[
    RowBox[{
     RowBox[{"r", " ", "yc"}], "+", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}], "2"]}]], "-", 
     RowBox[{"r", " ", "yf"}]}], 
    RowBox[{"2", " ", "r"}]], 
   RowBox[{"(", 
    RowBox[{"r", "+", "xc", "-", "xf"}], ")"}]]}]], "Input",
 CellChangeTimes->{{3.486935253734375*^9, 3.4869352860625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"yf", "\[Equal]", " ", 
       RowBox[{"yc", "+", "r"}]}], ",", 
      RowBox[{"m", "\[Equal]", "  ", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SqrtBox[
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["r", "2"]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"xc", "-", "xf"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}]}]}], "}"}], ",", 
    "m"}], "]"}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.486934299234375*^9, 3.486934337828125*^9}, {
  3.48693438153125*^9, 3.486934382234375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"m", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"r", " ", 
       RowBox[{"(", 
        RowBox[{"xc", "-", "xf"}], ")"}]}], "-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.48693435303125*^9, 3.486934385640625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"yf", "\[Equal]", " ", 
       RowBox[{"yc", "+", "r"}]}], ",", 
      RowBox[{"m", "\[Equal]", " ", 
       FractionBox[
        RowBox[{
         SqrtBox[
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["r", "2"]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"xc", "-", "xf"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}]}], "}"}], ",", 
    "m"}], "]"}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{
  3.486934348203125*^9, {3.48693437996875*^9, 3.486934383578125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"m", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"r", " ", 
       RowBox[{"(", 
        RowBox[{"xc", "-", "xf"}], ")"}]}], "+", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.486934331109375*^9, 3.486934348625*^9}, 
   3.48693438415625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.48693154478125*^9, 3.486931545640625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"xc", "-", "xf"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], ",", 
   RowBox[{"r", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "xc"}], "+", "xf"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.486931530640625*^9, 3.4869316005*^9}, {
  3.486931640296875*^9, 3.4869316570625*^9}, {3.486933531109375*^9, 
  3.486933553609375*^9}}],

Cell[BoxData[
 RowBox[{"DirectedInfinity", "[", 
  RowBox[{"-", 
   FractionBox[
    RowBox[{"Sign", "[", 
     RowBox[{
      RowBox[{"xf", " ", 
       RowBox[{"(", 
        RowBox[{"yc", "-", "yf"}], ")"}]}], "+", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}], "2"]}]], "+", 
      RowBox[{"xc", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "yc"}], "+", "yf"}], ")"}]}]}], "]"}], 
    RowBox[{"Sign", "[", 
     RowBox[{"xc", "-", "xf"}], "]"}]]}], "]"}]], "Output",
 CellChangeTimes->{{3.48693153925*^9, 3.486931600875*^9}, {
  3.486931646640625*^9, 3.486931657515625*^9}, {3.486933547234375*^9, 
  3.48693355465625*^9}, {3.486933999046875*^9, 3.486934017265625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xc", "-", "xf"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], ",", 
   RowBox[{"r", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "xc"}], "+", "xf"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.486934026328125*^9, 3.486934030640625*^9}}],

Cell[BoxData[
 RowBox[{"DirectedInfinity", "[", 
  FractionBox[
   RowBox[{"Sign", "[", 
    RowBox[{
     RowBox[{"xc", " ", "yc"}], "-", 
     RowBox[{"xf", " ", "yc"}], "+", 
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}], "2"]}]], "-", 
     RowBox[{"xc", " ", "yf"}], "+", 
     RowBox[{"xf", " ", "yf"}]}], "]"}], 
   RowBox[{"Sign", "[", 
    RowBox[{
     RowBox[{"2", " ", "xc"}], "-", 
     RowBox[{"2", " ", "xf"}]}], "]"}]], "]"}]], "Output",
 CellChangeTimes->{3.486934031625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"y1", " ", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"m", 
      RowBox[{"(", 
       RowBox[{"x", "-", "xf"}], ")"}]}], "+", "yf"}], " ", "/.", 
    RowBox[{"solM", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "//", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"#", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"r", ">", "0"}], ",", " ", 
        RowBox[{"x", " ", "\[GreaterEqual]", "0"}], ",", " ", 
        RowBox[{"y", "\[GreaterEqual]", " ", "0"}]}], "}"}]}], "]"}], 
    "&"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y2", " ", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"m", 
      RowBox[{"(", 
       RowBox[{"x", "-", "xf"}], ")"}]}], "+", "yf"}], " ", "/.", 
    RowBox[{"solM", "[", 
     RowBox[{"[", "2", "]"}], "]"}]}], "//", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"#", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"r", ">", "0"}], ",", " ", 
        RowBox[{"x", " ", "\[GreaterEqual]", "0"}], ",", " ", 
        RowBox[{"y", "\[GreaterEqual]", " ", "0"}]}], "}"}]}], "]"}], 
    "&"}]}]}]}], "Input",
 CellChangeTimes->{{3.486140249625*^9, 3.4861403506875*^9}, {
  3.4861424271875*^9, 3.486142431765625*^9}, {3.486146038265625*^9, 
  3.48614603878125*^9}, {3.486929546890625*^9, 3.486929577296875*^9}, {
  3.48692977721875*^9, 3.48692977809375*^9}, {3.486930121046875*^9, 
  3.4869301324375*^9}, {3.4869301658125*^9, 3.486930185859375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "xf"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"r", " ", 
        SqrtBox[
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"yc", "-", "yf"}], ")"}], "2"]}]]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}]}]}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], "+", "yf"}]], "Output",
 CellChangeTimes->{{3.486140304515625*^9, 3.486140355234375*^9}, 
   3.48614199109375*^9, 3.486142432453125*^9, 3.486146054046875*^9, 
   3.4869295183125*^9, {3.486929549265625*^9, 3.486929584375*^9}, {
   3.4869297740625*^9, 3.48692980046875*^9}, 3.486930091671875*^9, {
   3.4869301239375*^9, 3.48693013315625*^9}, {3.4869301810625*^9, 
   3.4869301864375*^9}, 3.486930308078125*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "-", "xf"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"r", " ", 
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "yf"}], ")"}], "2"]}]]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xc", "-", "xf"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"yc", "-", "yf"}], ")"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], "+", "yf"}]], "Output",
 CellChangeTimes->{{3.486140304515625*^9, 3.486140355234375*^9}, 
   3.48614199109375*^9, 3.486142432453125*^9, 3.486146054046875*^9, 
   3.4869295183125*^9, {3.486929549265625*^9, 3.486929584375*^9}, {
   3.4869297740625*^9, 3.48692980046875*^9}, 3.486930091671875*^9, {
   3.4869301239375*^9, 3.48693013315625*^9}, {3.4869301810625*^9, 
   3.4869301864375*^9}, 3.486930308078125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"xf", " ", "=", " ", "2"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.48692980715625*^9, 3.486929853578125*^9}, 
   3.48693080275*^9, 3.486931135171875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"yf", " ", "=", " ", "6"}], ";", " ", 
  RowBox[{"r", " ", "=", " ", "2"}], ";", " ", 
  RowBox[{"xc", " ", "=", " ", "4"}], ";", " ", 
  RowBox[{"yc", " ", "=", " ", "4"}], ";"}]], "Input",
 CellChangeTimes->{{3.486931429671875*^9, 3.486931444234375*^9}, {
  3.48693466584375*^9, 3.486934683609375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], ",", " ", 
    RowBox[{"xf", "\[Rule]", "2"}]}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.486934645765625*^9, 3.48693465778125*^9}}],

Cell[BoxData["0.`"], "Output",
 CellChangeTimes->{{3.48693465440625*^9, 3.486934685234375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Limit", "[", 
   RowBox[{
    FractionBox[
     RowBox[{
      SqrtBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"xc", "-", "xf"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], ",", " ", 
    RowBox[{"xf", "\[Rule]", "2"}]}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{3.486934695765625*^9}],

Cell[BoxData["\[Infinity]"], "Output",
 CellChangeTimes->{3.48693469609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SqrtBox[
         RowBox[{
          SuperscriptBox["r", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["r", "2"]}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], ",", 
     FractionBox[
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["r", "2"]}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}], " ", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"xf", " ", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.48693081003125*^9, 3.48693090834375*^9}, {
  3.486931138484375*^9, 3.486931175640625*^9}, {3.486931458078125*^9, 
  3.486931458265625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVkGk01HscxsdY/qg0TRRFk2KYkkSTxMzvN4uZvzq2YercOVGptBDNuMrJ
ycgSLZaKTlGn7mm1pETbyfI9WriT4Toqab8q65Qhxm6u++I5z5vPi8/z2EfE
SnZTKRSK/0z+731fh8wpFC06eUMZpljDAdLwl3cqVYsYfUXOYe4ccGZ2RZsY
axH7dB6V9OBAZ1R702xzLXp18F6HHZsDu0aqz9pYalFaFStUtZ4D2y0yFnk4
a1HvE9mUI+bAZh+bFZFBWlS7K0XRHcAB4QWOX+NVLeJYf15XEM2B81bj5ozA
AeRaCvrGOxwYYDTEfx8YQPTn01cq+zjgqLI7mnBmENm+/GYWweJCs1cXcY77
Gy33Pfcg6gAXUtfVeS/9+hvFnBxlUsu4UDZK++2RM4QYkmAvr2EulMu6RAu8
h1HFoYd4rw+CGr9mQdSHYZRixbYYVSLgTa94LjqhQw6B5a6ZKgRN6MLPvJUj
iMY9eO2+KYa19lkV5aoR9IeT/1YzFwy0huHJ0MOjqGL7oIYegkE3Edu/33oM
zaJms1cmYJAMh+0m6sfQsPzFXPu/MGRktx5WKMbROfP9XgwVhpeVMo8g+gTy
5PzomTeAIfGqVFFZO4EOUD7ELrHlwQabCNmpHZMolRL4c74vD2K3dLzopk0h
lnVIkFTBg6PsXrVl9RR6+36juvQKD/KvGiorwqbRVELgYLOKB8tbcivezdKj
nI8pFsfHefA0e/WZg2V6RC5zdZpw4oOVrji9j0nBS8wtqQekfMgkEowijlLw
T4ZSX53Bh+Qv6rZ5TRRcXeBvVfaID2sLPmnSHA3wEePAf6s1fHjtsCZoW6IB
/sU4mTplL4Cx+Dmmca8McJZt7efHoQJoL7pmsHEZFR9SJqZrTwuAe70uUBZH
xbKQbXb5dQLIiXHUtNRRcfzf98Y2jQqgcDFfNdvGECeuzHD/5iEEl5yuyeR9
hvhOm/opRAsh4YdI/hgM8Y/N5e2tJULwo67ewKIb4UX9+UK7biEQ/bJggwgj
rHkaLDnj4AvJNbj40mMjXHM2wL9yjy8khd7dIjczxiyf+8s7bvmCp7pNZLbD
GHfmyC8y+33ho5UwzfSRMU4yiryiWScCE0evBTzCBD/sOG+WlSiCvgXdPT7h
JvhYbU/nh3oRSJsZdMVdExxXZtk1SBND6ZbCTAu9CXZjdvdFysRQU/cPjpES
2H9HT5ZbqRikQ9n+xE0C76GXhmSNi6Guie8We4vAd7ZdetM/IQa3Ih297TaB
jzQpkyVTYpgdHv7uZgmBM+N9gq0pJDyvX7VTVE5gcyL0yw1jEtwLGxPSqwic
l7WhsoFGAo1vft2wlcAlY65xq5xISLKtOR71msBzsnba5zuToNHJ97W+IbD3
WfnYJIuEhpJ212vvCHzRxdNJ7UKC0qroCf8zgdMK2Edi3Un41S1uPtZDYDVE
G1VxSNj6bKK8p5fAr9/eDmEiElSX7+YFawgsnrtWnYtJuClZKLPvn+FzpChS
QEJYVed3GCLw0ld5S+f7zfDnC+qddQR2+G7zLGkjCevlAcW5IzN7L7NyezeR
YMl8GLt9nMCLW0yK6wJISKHslzRMELgJfdO5BpGgfW/Hdpua8fXcG1MYTEL4
g5aFF6YJPM/zMs00hITGnPRxvX7mr5oTn/4MJeE/YndB/w==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVj3s41Ikeh2Wjk91cj8n1YEqubW1aj5CvUoRELukQmwnL0oyMMdMwGMzI
yVSbS+mpZ+S0FW1i3ba1o2/YJmWj2rWFcxqzRZtWM7WT+V3U6fzxed7n/et9
Pi4sTmyGoYGBAevD/s9s1V8mBgYaaP2h280vmIU7PpoPqDDUQIrRVBAjhIXu
a2ZzjY00IJ8eD9RtZ+FMzuN7n5hooD/x3Xx3JAvTFxQnbf+ugRCpmd/WRBbu
N62y83HXQNQuQiFls3BPoK1nZowGBmvTrw6cY+G205vDR5o0oI5c0e70noUN
1qSJU7QWFBNrmFWqA6h1us17qtVC8vJmXs+tdHS94ygSfP0axiervq9WZODo
ptlltUFvII3z2/XjTzOxwncgwFn1BvJDqz3qrbOwTW/+xuf4X/DkY1kuU5qN
HUmzoYwAHbhk1R4qc8zB/vDRkJxJHYTH1Ujs7+TilneeQ6HVbyHu6MFWcoKN
9+D0n3VeC8DoyE22qM7DjS6yzo47CzCs+q/bqeFDaH5bR8fz9fBF4P7xtWlc
VLXfiH98WA9/7D7LbvmSi9caq79NKdbDrPc3qR5sLu7KcdyXKdaD56Nzib5F
XJSZbu/jH9WDiE26S+q5aJJQd/iMXA8L6S0B5B0ufqTe8PaJUg899fsWWZsK
8C3FefWVDQGqB0TkTlceTnWGpbnaE8C0mqxtXcvDmzlOD584EnAigBaZ+fKw
ZvJeT/wqAtpVF/b+GcpDZt/akqBPCcj6j3oZmcXDKOHcJ5bbCPCZDC1KbePh
BX2m53UOAdOrIueOBxVirC4lY5mSgLaRTofLhXzsvXvJonuYgM+NObM/lfHR
oVmrYI0QMCj04rz8Fx+f7ZIw+u8ToKRsfo+T81Fw+VtlwRQBwdoNctltPsqT
KQ+1loDXV8739zgI8OXN0/M/OpCwO1DX5TsiwN2n1We+ciLhRUtvW8VvAuxh
e4fZMElQmuqJCbUAy+xRznUjoWfgquIyIUAr3myM5wYSSpYM1Qy4HUZ/d9/O
U2EkrLx+w4+WHMaqYw/5+fkkGB1PstNFCNH5ys15bQEJcmvpxnt7hPi98lrG
IT4J7V4OS75jCfGFQU1cXjEJlh1tc41CIe7iblvHlpJwXhb+75etQmTs7Z7J
PkNCxOLIVOuKIrzociohbYCEdc6XssjJIoQgyYhqiAS/nVzTHX8U4aMkbsh+
JQl0xlN289siNKmL/uyLERKWi8xaRBbFyDb+24qUcRJy2YMfj4UVo++cYGjv
iw9/vyvaqespxltdST4xlhRMpu7GUbkIeU17hoysKXCtYDa4tItwdU1sQt9K
CqycFvMkKELxgQj+GkcKLn7ddbViWoSBlv59tBsFd885N6asLsFOjm1Iy2YK
Ys05d5uvlmCT56NYw2wKNEmy4tTRUoxm/PJ7bw4F8zes/7leXYrvlowVHGRT
EPywrcpGV4r7HisbHnEpOGEZt7lhRRmuPNI70VZCgfz8eJ3PxjI89qyBlVxH
wdDnDVsuVpRhUVNCftcNCgR1J14t9xZj6gPdzwEDH3omnnOhvmIMXtrgMThE
gXchZ9WJYDEaZ42r7g9TwGV4NIcliPHkusToVw8pyC/dGBVVKsbW/r3ens8p
EN7u6FH+KsaJqeQZuTkNluYWS91l5agwpbe4WdGQthh+zL6xHJuCz55rs6bB
Z67+yD++KcfMC1PxCjsapt5f2h6nKMfXOSmDE6tpEN1XBBbNl6MJldpkvYmG
NyrZ0um4CvS3ZSUdTaPhrmRVns6rEn3szMd2pNNwSv7icWhAJXrb9283/pKG
7PdejdciKtHR0e4zce4Hv3J5XpldiQYuD5bx+TS4SX5csG2pRKX71m6WjIZe
5qsxnrcE4/2Y5v7XaSgzuya5FSbFqE1jkoU+Gpzz9jEFSVIM9S+huvpp6Csw
8gs/KEW/wImZdUM0sKdjTCNrpWgffFLhOkrD2UibA+MqKarDDHMsntHgSviH
JZZXISdR/dNz80VIWS8nmqaP4PNCw8JGq0UYnl2fKNUfwf0NzDURjEVo38l4
X29WjTG/sqRX7Bdhpltr5BtUjZP5W8UWDouwXsOLVmypxv8Bl9EyHQ==
     "]], LineBox[CompressedData["
1:eJwVjns4lIkCxn3fx3wSLRYdt20RuiCrFjnhjWJr3W1aaie+cb8zxsgaZhj3
E+rQU2sVq4SKrZPQWrUoQkKuHZHVxUSr4qikrPPH+7z/vL/n9+owUR4BpJSU
VOhq/t9sfluHEp9AdGV0k9LLLAxs/MrtyI8ErHvPLNuXZeEfJxXPnk0icLY1
eij7X1n4gX71ckJAoM/jLO8NPwvPJDW5vkIC4Wx25RbXLLyrMWr3SyeQtEHu
Z+OVTGjv3GTjn09gP31LyyIgE4HOG4xCygkUmTipezlmoLr5U2LVOQIjmj3u
R8wzMLdt/K7kPAEzRQunVP0MJCiXBIVWEphuSihRkc5A7rBGedhlAlODT+P9
W9Lxq5+aRmQ9AavqSleRfTre8xRkuV0ETt7+t7q7lxgdPfOcnm4C9+bkhMsO
YpwyfHhzc88q7zzzutlCDIvRCv7jXgK/1jlszlIXg7cLz52HCIjnOH4G42l4
TXLvbJokQO7D5aCwNEjyR8TjiwTa9eLv3ClMRcN08+Od7wgsLrD63memImv3
+V1F7wloukTH2vyYCsP5mIVvlwmoPsiTfPBLRYDXWv9GgoRxdGm3vWkqJrVs
7AvlSfg9Z12X3BdhtKqc2K9LItJmyvGqhggt+mN2eXok+thStscVRbhUpiLu
30iiVVrfJIklgvB0OuuQIYkn1gqlvDdCGGQHrQ03IjEfMXJsoVOI2OCtqnnm
JDSK161RShZC3vA/m/r3k2CrsMtSR1Kw+MtMiJoTCfmxKdH8nRRMfLHxoo8z
iQsNjdf4dSm4qlZkPOVKoqbe7UTjiRR8z+KbLXxHwuHal60bXFJw/qnVLrUj
JPb+1pZ+qCMZNudaXH24JPTnDeru3hUgaNsOk1NxJFRTzkU03hCg4MZ5+SEe
CbkXuT4NFwWY6s26655Awrx0gjd1TICsjy72+wQkdh/Ot5r1EKDf67/mlpkk
fve3vHdtIgmBaxa01YpJjG//zew4lYT8SP3ZvhYSo61e0qHRidgzWTK8pW31
vyDqYDYnEe881VrTbpNo0OncVueVCN+d9E9fd5DQqxQZmlknwlRa4nj6Hok/
mxytb8olov/0pXLfERLK2R9b1SqPQvX29kNzL0l45n424TiTgGJNu055dQqe
FS4hvAI+Qq/IF7toUNi6POMkyeDD0nE4rECTAsX6U+Iv4GMgNlxB5QsKl7US
tnBD+VjXedJNU4/CW583rS/28CFMmBnabEzBrWQXz+ZDPPwHC6ccdlNQllYo
+mdEPIzyny8LQyjskW0RD/jzkC7f+PBRKIWDsRA5HeZhPDunwSqcQm/zw2+6
PHk4LjaOW4ik4HuTVn9kx8PiUe5MUByFzzn5j9x0eLjpvzLqkkIhOvO4buxE
HDys1tdrFVGIvyQJCPKNQ8JTh5iGWxQs3Zarz3C5mEkP3fHpDwoCh1C2bAQX
bIO8t/atFGoigjPiA7nYGzQouH+bAjEir+vrzYWyhJPzrJPC1SsKa4Ntubg0
KyxXGaTw6kvtXgd5Lh7P3xiMllCodam9qlsVi33kNqvNytKQC89IPvpXDOg5
H3eCkcZs/7ua7gvREDaj+ucGaejneCmkzUYi+bvagzFrZDDm/T9T6+VwWNwb
dljjJ4M09leLlhvDMKa6RyxbLwOV6y+1unJDwNLfqbabZiFwwERz0CIYM2rT
kl1sFlxP/6Eg8zIQB+5vUI6tZaErpKc0YygAlw4WZ61bYUH0dokrM+6P5pZe
RB6godQRHGYzzcGBhTxnuoLG7FjbKZ4aBy09dqZRF2gIcyaVFpQ5MK1aVB6u
pPE8gDvA/YwDeTZ7pOLiKq+iu50vy0FbuzHH4QqN5b3v7I4tMTAr7k5Ib6KR
41qiuDjOQNFO7hz1gIZeR/2ZukoGyVrNGWEDNGoKFF8fOs9gdjEm5MEgjYve
JnzqFwYdF0dNykdoRJrraXkVM0hRrWq0G1/1v5+/viaPwV/TjvdFEhrFtrfK
qrgMDrd+uCJ5sepn904x0Qw6S2oL3WdpdInSXLUjGFR4rPfRmaMRteRdVhTI
4IemZ09uLdD4/NsT2oXeq/uTP7VvWqRhS6YWe3kxsIxxqS54S0OHbWKj4clA
xeB6lO8SDTsZj7lzTgxSpUI9Oj7QKJ0sXA7bx+DVQ+2vTT/SMBZvNdrhwIBd
17f+1Cca37QlCT7aMejOT19aWaGx+GRurt2Wwd/EF+O1
     "]], 
    LineBox[{{1.9996994083871007`, -808.2174367155003}, {1.9997001772677032`, 
     797.6336602021602}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1., 0},
  ImageSize->{828.6666666666664, Automatic},
  PlotRange->{{1, 3}, {-808.2174367155003, 797.6336602021602}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.486930871296875*^9, 3.486930908484375*^9}, {
   3.486931140296875*^9, 3.48693117575*^9}, {3.48693143540625*^9, 
   3.486931459015625*^9}, 3.4869346424375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     SqrtBox[
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"xc", "-", "xf"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], ",", " ", 
   RowBox[{"r", "\[Rule]", 
    RowBox[{
     RowBox[{"+", "xc"}], "-", "xf"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.48693450396875*^9, 3.486934593515625*^9}}],

Cell[BoxData[
 RowBox[{"DirectedInfinity", "[", 
  FractionBox[
   RowBox[{"Sign", "[", 
    RowBox[{
     RowBox[{"xc", " ", "yc"}], "-", 
     RowBox[{"xf", " ", "yc"}], "+", 
     SqrtBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}], "2"]}]], "-", 
     RowBox[{"xc", " ", "yf"}], "+", 
     RowBox[{"xf", " ", "yf"}]}], "]"}], 
   RowBox[{"Sign", "[", 
    RowBox[{
     RowBox[{"2", " ", "xc"}], "-", 
     RowBox[{"2", " ", "xf"}]}], "]"}]], "]"}]], "Output",
 CellChangeTimes->{{3.486934530921875*^9, 3.486934539296875*^9}, {
  3.48693457040625*^9, 3.486934594203125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"xc", "-", "xf"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], "//", "Apart"}]], "Input",
 CellChangeTimes->{{3.48693443459375*^9, 3.486934436375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    SqrtBox[
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"xc", "-", "xf"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"r", "+", "xc", "-", "xf"}], ")"}]}]]}], "+", 
  FractionBox[
   SqrtBox[
    RowBox[{
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"xc", "-", "xf"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"yc", "-", "yf"}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "yc"}], "+", "yf"}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"r", "+", "xc", "-", "xf"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.486934436921875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"xc", "-", "xf"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"yc", "-", "yf"}], ")"}]}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], " ", "//", 
  "Apart"}]], "Input",
 CellChangeTimes->{{3.48693444596875*^9, 3.4869344485625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    SqrtBox[
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"xc", "-", "xf"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"r", "+", "xc", "-", "xf"}], ")"}]}]]}], "+", 
  FractionBox[
   SqrtBox[
    RowBox[{
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"xc", "-", "xf"}], ")"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"yc", "-", "yf"}], ")"}], "2"]}], ")"}]}]], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"xc", "-", "xf"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{"yc", "-", "yf"}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"r", "+", "xc", "-", "xf"}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "yc"}], "+", "yf"}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.4869344488125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"r", "+", "xc", "-", "xf"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"r", "-", "xc", "+", "xf"}], ")"}]}]], "Input"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.486929858734375*^9, {3.486930319265625*^9, 3.48693032334375*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.48614188175*^9, 3.486141931203125*^9}, {
  3.486141962703125*^9, 3.486141969296875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"xf", "+", 
     FractionBox[
      RowBox[{"h", "-", "yf"}], "m1"]}], ",", "h"}], "}"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.48614564071875*^9, 3.486145674015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "/.", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"y1", "[", "x", "]"}], "\[Equal]", "h"}], ",", "x"}], 
       "]"}]}], "//", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"#", ",", 
        RowBox[{"r", ">", "0"}]}], "]"}], "&"}]}], ",", "h"}], "}"}], "//", 
  "Flatten"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "/.", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"y2", "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
       "]"}]}], "//", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"#", ",", 
        RowBox[{"r", ">", "0"}]}], "]"}], "&"}]}], ",", "0"}], "}"}], "//", 
  "Flatten"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "/.", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"y2", "[", "x", "]"}], "\[Equal]", "h"}], ",", "x"}], 
       "]"}]}], "//", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"#", ",", 
        RowBox[{"r", ">", "0"}]}], "]"}], "&"}]}], ",", "h"}], "}"}], "//", 
  "Flatten"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "/.", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"y1", "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
       "]"}]}], "//", 
     RowBox[{
      RowBox[{"FullSimplify", "[", 
       RowBox[{"#", ",", 
        RowBox[{"r", ">", "0"}]}], "]"}], "&"}]}], ",", "0"}], "}"}], "//", 
  "Flatten"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", 
    RowBox[{"y1", "[", "a", "]"}]}], "}"}], "//", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"#", ",", 
     RowBox[{"r", ">", "0"}]}], "]"}], "&"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", 
    RowBox[{"y2", "[", "a", "]"}]}], "}"}], "//", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"#", ",", 
     RowBox[{"r", ">", "0"}]}], "]"}], "&"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"0", ",", 
    RowBox[{"y1", "[", "0", "]"}]}], "}"}], "//", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"#", ",", 
     RowBox[{"r", ">", "0"}]}], "]"}], "&"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"0", ",", 
    RowBox[{"y2", "[", "0", "]"}]}], "}"}], "//", 
  RowBox[{
   RowBox[{"FullSimplify", "[", 
    RowBox[{"#", ",", 
     RowBox[{"r", ">", "0"}]}], "]"}], "&"}]}]}], "Input",
 CellChangeTimes->{{3.486141848859375*^9, 3.48614187565625*^9}, {
  3.48614200128125*^9, 3.48614200921875*^9}, {3.48614205334375*^9, 
  3.486142085359375*^9}, {3.486142131359375*^9, 3.48614229765625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"InverseFunction", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used. Values may be lost for multivalued inverses.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InverseFunction/ifun\\\", ButtonNote -> \\\
\"InverseFunction::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.48729781246875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    TagBox[
     SuperscriptBox["y1", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]],
     {InverseFunction, 1, 1},
     Editable->False], "[", "h", "]"}], ",", "h"}], "}"}]], "Output",
 CellChangeTimes->{
  3.486142086078125*^9, {3.486142134921875*^9, 3.4861421803125*^9}, 
   3.4861422138125*^9, 3.4861422655625*^9, 3.486142298296875*^9, 
   3.486142437578125*^9, {3.48692951*^9, 3.4869295509375*^9}, 
   3.4869295884375*^9, 3.48729781290625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"InverseFunction", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used. Values may be lost for multivalued inverses.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InverseFunction/ifun\\\", ButtonNote -> \\\
\"InverseFunction::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487297812921875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    TagBox[
     SuperscriptBox["y2", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]],
     {InverseFunction, 1, 1},
     Editable->False], "[", "0", "]"}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.486142086078125*^9, {3.486142134921875*^9, 3.4861421803125*^9}, 
   3.4861422138125*^9, 3.4861422655625*^9, 3.486142298296875*^9, 
   3.486142437578125*^9, {3.48692951*^9, 3.4869295509375*^9}, 
   3.4869295884375*^9, 3.487297812953125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"InverseFunction", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used. Values may be lost for multivalued inverses.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InverseFunction/ifun\\\", ButtonNote -> \\\
\"InverseFunction::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.48729781296875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    TagBox[
     SuperscriptBox["y2", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]],
     {InverseFunction, 1, 1},
     Editable->False], "[", "h", "]"}], ",", "h"}], "}"}]], "Output",
 CellChangeTimes->{
  3.486142086078125*^9, {3.486142134921875*^9, 3.4861421803125*^9}, 
   3.4861422138125*^9, 3.4861422655625*^9, 3.486142298296875*^9, 
   3.486142437578125*^9, {3.48692951*^9, 3.4869295509375*^9}, 
   3.4869295884375*^9, 3.487297812984375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"InverseFunction", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used. Values may be lost for multivalued inverses.\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InverseFunction/ifun\\\", ButtonNote -> \\\
\"InverseFunction::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.487297813*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    TagBox[
     SuperscriptBox["y1", 
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}]],
     {InverseFunction, 1, 1},
     Editable->False], "[", "0", "]"}], ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.486142086078125*^9, {3.486142134921875*^9, 3.4861421803125*^9}, 
   3.4861422138125*^9, 3.4861422655625*^9, 3.486142298296875*^9, 
   3.486142437578125*^9, {3.48692951*^9, 3.4869295509375*^9}, 
   3.4869295884375*^9, 3.487297813015625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"a", ",", 
   RowBox[{"y1", "[", "a", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.486142086078125*^9, {3.486142134921875*^9, 3.4861421803125*^9}, 
   3.4861422138125*^9, 3.4861422655625*^9, 3.486142298296875*^9, 
   3.486142437578125*^9, {3.48692951*^9, 3.4869295509375*^9}, 
   3.4869295884375*^9, 3.48729781303125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"a", ",", 
   RowBox[{"y2", "[", "a", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.486142086078125*^9, {3.486142134921875*^9, 3.4861421803125*^9}, 
   3.4861422138125*^9, 3.4861422655625*^9, 3.486142298296875*^9, 
   3.486142437578125*^9, {3.48692951*^9, 3.4869295509375*^9}, 
   3.4869295884375*^9, 3.4872978130625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"y1", "[", "0", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.486142086078125*^9, {3.486142134921875*^9, 3.4861421803125*^9}, 
   3.4861422138125*^9, 3.4861422655625*^9, 3.486142298296875*^9, 
   3.486142437578125*^9, {3.48692951*^9, 3.4869295509375*^9}, 
   3.4869295884375*^9, 3.487297813078125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"y2", "[", "0", "]"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.486142086078125*^9, {3.486142134921875*^9, 3.4861421803125*^9}, 
   3.4861422138125*^9, 3.4861422655625*^9, 3.486142298296875*^9, 
   3.486142437578125*^9, {3.48692951*^9, 3.4869295509375*^9}, 
   3.4869295884375*^9, 3.48729781309375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"y1", "[", "x", "]"}], "\[Equal]", "h"}], ",", "x"}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", "4.666666666666667`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.486141192265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "0"}], "}"}], "/.", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"y2", "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], 
   "//", "Flatten"}], "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "h"}], "}"}], "/.", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"y2", "[", "x", "]"}], "\[Equal]", "h"}], ",", "x"}], "]"}]}], 
   "//", "Flatten"}], "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", 
    RowBox[{"y2", "[", "a", "]"}]}], "}"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"0", ",", 
    RowBox[{"y2", "[", "0", "]"}]}], "}"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "0"}], "}"}], "/.", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"y1", "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], 
   "//", "Flatten"}], "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "h"}], "}"}], "/.", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"y1", "[", "x", "]"}], "\[Equal]", "h"}], ",", "x"}], "]"}]}], 
   "//", "Flatten"}], "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", 
    RowBox[{"y1", "[", "a", "]"}]}], "}"}], "//", 
  "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"y1", "[", "0", "]"}]}], "}"}], "//", "N"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.486146141390625*^9, 3.4861461880625*^9}, {
  3.48614645540625*^9, 3.486146521578125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.8452994616207484`", ",", "0.`"}], "}"}]], "Output",
 CellChangeTimes->{{3.48614616659375*^9, 3.486146188296875*^9}, {
  3.4861464753125*^9, 3.486146522015625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4.309401076758504`", ",", "6.`"}], "}"}]], "Output",
 CellChangeTimes->{{3.48614616659375*^9, 3.486146188296875*^9}, {
  3.4861464753125*^9, 3.486146522015625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6.`", ",", "8.928203230275509`"}], "}"}]], "Output",
 CellChangeTimes->{{3.48614616659375*^9, 3.486146188296875*^9}, {
  3.4861464753125*^9, 3.486146522015625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.`", ",", 
   RowBox[{"-", "1.4641016151377544`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.48614616659375*^9, 3.486146188296875*^9}, {
  3.4861464753125*^9, 3.486146522015625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3.154700538379252`", ",", "0.`"}], "}"}]], "Output",
 CellChangeTimes->{{3.48614616659375*^9, 3.486146188296875*^9}, {
  3.4861464753125*^9, 3.486146522015625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.3094010767585032`"}], ",", "6.`"}], "}"}]], "Output",
 CellChangeTimes->{{3.48614616659375*^9, 3.486146188296875*^9}, {
  3.4861464753125*^9, 3.486146522015625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6.`", ",", 
   RowBox[{"-", "4.928203230275509`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.48614616659375*^9, 3.486146188296875*^9}, {
  3.4861464753125*^9, 3.486146522015625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.`", ",", "5.464101615137754`"}], "}"}]], "Output",
 CellChangeTimes->{{3.48614616659375*^9, 3.486146188296875*^9}, {
  3.4861464753125*^9, 3.486146522015625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", "=", "6"}], ";", 
  RowBox[{"h", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pts", "=", "\[IndentingNewLine]", 
   RowBox[{"foco", "=", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"xf", ",", "yf"}], "}"}], "=", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"centro", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"xc", ",", "yc"}], "}"}], "=", 
    RowBox[{"{", 
     RowBox[{"2", ",", "4"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Point", "/@", 
      RowBox[{"{", 
       RowBox[{"foco", ",", "centro"}], "}"}]}], ",", 
     RowBox[{"Circle", "[", 
      RowBox[{"centro", ",", "r"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"xf", ",", 
          RowBox[{"y1", "[", "xf", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xc", "-", "1"}], ",", 
          RowBox[{"y1", "[", 
           RowBox[{"xc", "-", "1"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"xf", ",", 
          RowBox[{"y2", "[", "xf", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xc", "+", "1"}], ",", 
          RowBox[{"y2", "[", 
           RowBox[{"xc", "+", "1"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "h"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "h"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", "h"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"a", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", "h"}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Point", "[", 
      RowBox[{"{", 
       RowBox[{"a", ",", 
        RowBox[{"y1", "[", "a", "]"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Point", "[", 
      RowBox[{"{", 
       RowBox[{"a", ",", 
        RowBox[{"y2", "[", "a", "]"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Point", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"y1", "[", "0", "]"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Point", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"y2", "[", "0", "]"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Point", "/@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "h"}], "}"}], "/.", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"y1", "[", "x", "]"}], "\[Equal]", "h"}], ",", "x"}], 
         "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Point", "/@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "0"}], "}"}], "/.", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"y2", "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
         "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Point", "/@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "h"}], "}"}], "/.", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"y2", "[", "x", "]"}], "\[Equal]", "h"}], ",", "x"}], 
         "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Point", "/@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "0"}], "}"}], "/.", 
        RowBox[{"Solve", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"y1", "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
         "]"}]}], ")"}]}]}], "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.486140382671875*^9, 3.486140636796875*^9}, {
  3.48614067653125*^9, 3.486140747796875*^9}, {3.4861407961875*^9, 
  3.48614092553125*^9}, {3.486141068078125*^9, 3.48614134390625*^9}, {
  3.486141409296875*^9, 3.48614141565625*^9}, {3.48614154071875*^9, 
  3.48614155865625*^9}, {3.486141600234375*^9, 3.486141723015625*^9}, {
  3.486146066484375*^9, 3.4861461239375*^9}}],

Cell[BoxData[
 GraphicsBox[{{PointBox[{2, 2}], PointBox[{2, 4}]}, CircleBox[{2, 4}], 
   LineBox[NCache[{{2, 2}, {1, 2 + 3^Rational[1, 2]}}, {{2, 2}, {
      1, 3.732050807568877}}]], 
   LineBox[NCache[{{2, 2}, {3, 2 + 3^Rational[1, 2]}}, {{2, 2}, {
      3, 3.732050807568877}}]], LineBox[{{0, 0}, {0, 6}}], 
   LineBox[{{0, 0}, {6, 0}}], LineBox[{{0, 6}, {6, 6}}], 
   LineBox[{{6, 0}, {6, 6}}], 
   PointBox[NCache[{6, 2 - 4 3^Rational[1, 2]}, {6, -4.928203230275509}]], 
   PointBox[NCache[{6, 2 + 4 3^Rational[1, 2]}, {6, 8.928203230275509}]], 
   PointBox[NCache[{0, 2 + 2 3^Rational[1, 2]}, {0, 5.464101615137754}]], 
   PointBox[NCache[{0, 2 - 2 3^Rational[1, 2]}, {0, -1.4641016151377544`}]], 
   PointBox[NCache[{
     2 3^Rational[-1, 2] (-2 + 3^Rational[1, 2]), 6}, {-0.3094010767585032, 
      6}]], PointBox[
    NCache[{2 3^Rational[-1, 2] (-1 + 3^Rational[1, 2]), 0}, {
     0.8452994616207484, 0}]], 
   PointBox[NCache[{2 3^Rational[-1, 2] (2 + 3^Rational[1, 2]), 6}, {
     4.309401076758504, 6}]], 
   PointBox[NCache[{2 3^Rational[-1, 2] (1 + 3^Rational[1, 2]), 0}, {
     3.154700538379252, 0}]]},
  ImageSize->500]], "Output",
 CellChangeTimes->{
  3.4861405105*^9, {3.4861406140625*^9, 3.486140638203125*^9}, 
   3.4861408630625*^9, {3.48614111528125*^9, 3.4861411286875*^9}, {
   3.486141172*^9, 3.48614117653125*^9}, {3.48614123225*^9, 
   3.486141344484375*^9}, 3.4861414163125*^9, {3.486141542578125*^9, 
   3.486141558859375*^9}, {3.4861416163125*^9, 3.486141724296875*^9}, 
   3.48614602821875*^9, {3.486146058578125*^9, 3.48614612421875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"x", ",", "h"}], "}"}], "/.", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"y1", "[", "x", "]"}], "\[Equal]", "h"}], ",", "x"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.486141268984375*^9, 3.486141269796875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"4.666666666666667`", ",", "5"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.486141262015625*^9, 3.486141270453125*^9}}]
}, Open  ]]
},
WindowSize->{1109, 1068},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 752, 19, 100, "Input"],
Cell[1322, 43, 759, 14, 27, "Message"],
Cell[2084, 59, 593, 16, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2714, 80, 305, 8, 55, "Input"],
Cell[3022, 90, 491, 13, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3550, 108, 94, 1, 36, "Input"],
Cell[3647, 111, 502, 14, 35, "Output"]
}, Open  ]],
Cell[4164, 128, 69, 1, 36, "Input"],
Cell[CellGroupData[{
Cell[4258, 133, 8292, 206, 697, "Input"],
Cell[12553, 341, 535, 14, 35, "Output"]
}, Open  ]],
Cell[13103, 358, 1195, 22, 868, "Input"],
Cell[14301, 382, 734, 13, 870, "Input"],
Cell[15038, 397, 1367, 25, 1068, "Input"],
Cell[16408, 424, 1548, 29, 554, "Input"],
Cell[17959, 455, 631, 22, 80, "Input"],
Cell[18593, 479, 152, 3, 58, "Input"],
Cell[CellGroupData[{
Cell[18770, 486, 1100, 30, 39, "Input"],
Cell[19873, 518, 2892, 88, 135, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22802, 611, 2876, 86, 130, "Input"],
Cell[25681, 699, 706, 25, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26424, 729, 1804, 55, 93, "Input"],
Cell[28231, 786, 1252, 41, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29520, 832, 1030, 29, 39, "Input"],
Cell[30553, 863, 3160, 96, 246, "Output"]
}, Open  ]],
Cell[33728, 962, 187, 6, 35, "Input"],
Cell[33918, 970, 3614, 99, 277, "Input"],
Cell[CellGroupData[{
Cell[37557, 1073, 1828, 59, 127, InheritFromParent],
Cell[39388, 1134, 1832, 59, 125, "Output"]
}, Open  ]],
Cell[41235, 1196, 182, 3, 80, "Input"],
Cell[41420, 1201, 471, 9, 35, "Input"],
Cell[CellGroupData[{
Cell[41916, 1214, 1877, 51, 257, "Input"],
Cell[43796, 1267, 131, 2, 35, "Output"],
Cell[43930, 1271, 131, 2, 35, "Output"],
Cell[44064, 1275, 131, 2, 35, "Output"],
Cell[44198, 1279, 131, 2, 35, "Output"],
Cell[44332, 1283, 136, 2, 35, "Output"],
Cell[44471, 1287, 131, 2, 35, "Output"],
Cell[44605, 1291, 137, 3, 35, "Output"],
Cell[44745, 1296, 132, 2, 35, "Output"],
Cell[44880, 1300, 138, 2, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45055, 1307, 269, 8, 53, "Input"],
Cell[45327, 1317, 540, 8, 35, "Output"]
}, Open  ]],
Cell[45882, 1328, 110, 2, 35, "Input"],
Cell[45995, 1332, 792, 26, 79, "Input"],
Cell[46790, 1360, 824, 28, 89, "Input"],
Cell[47617, 1390, 643, 22, 79, "Input"],
Cell[CellGroupData[{
Cell[48285, 1416, 210, 5, 39, "Input"],
Cell[48498, 1423, 188, 3, 53, "Output"]
}, Open  ]],
Cell[48701, 1429, 1201, 38, 79, "Input"],
Cell[CellGroupData[{
Cell[49927, 1471, 1966, 63, 181, "Input"],
Cell[51896, 1536, 95, 1, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52028, 1542, 592, 20, 64, "Input"],
Cell[52623, 1564, 91, 1, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52751, 1570, 699, 23, 64, "Input"],
Cell[53453, 1595, 312, 9, 53, "Output"]
}, Open  ]],
Cell[53780, 1607, 117, 2, 35, "Input"],
Cell[53900, 1611, 839, 28, 68, "Input"],
Cell[CellGroupData[{
Cell[54764, 1643, 527, 14, 35, "Input"],
Cell[55294, 1659, 492, 16, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55823, 1680, 407, 11, 35, "Input"],
Cell[56233, 1693, 484, 16, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56754, 1714, 403, 12, 55, "Input"],
Cell[57160, 1728, 1087, 37, 67, "Output"]
}, Open  ]],
Cell[58262, 1768, 468, 14, 75, "Input"],
Cell[58733, 1784, 256, 7, 53, "Input"],
Cell[58992, 1793, 505, 16, 101, "Input"],
Cell[CellGroupData[{
Cell[59522, 1813, 1273, 37, 68, "Input"],
Cell[60798, 1852, 864, 28, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61699, 1885, 1200, 36, 68, "Input"],
Cell[62902, 1923, 889, 29, 67, "Output"]
}, Open  ]],
Cell[63806, 1955, 117, 2, 35, "Input"],
Cell[CellGroupData[{
Cell[63948, 1961, 1045, 33, 68, "Input"],
Cell[64996, 1996, 871, 25, 71, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65904, 2026, 998, 32, 68, "Input"],
Cell[66905, 2060, 662, 21, 71, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67604, 2086, 1525, 43, 58, "Input"],
Cell[69132, 2131, 1257, 35, 74, "Output"],
Cell[70392, 2168, 1212, 34, 74, "Output"]
}, Open  ]],
Cell[71619, 2205, 206, 5, 35, "Input"],
Cell[71828, 2212, 338, 7, 35, "Input"],
Cell[CellGroupData[{
Cell[72191, 2223, 1007, 31, 68, "Input"],
Cell[73201, 2256, 95, 1, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73333, 2262, 939, 30, 68, "Input"],
Cell[74275, 2294, 79, 1, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74391, 2300, 1965, 60, 127, "Input"],
Cell[76359, 2362, 6877, 120, 652, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[83273, 2487, 958, 31, 68, "Input"],
Cell[84234, 2520, 737, 22, 71, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85008, 2547, 820, 27, 68, "Input"],
Cell[85831, 2576, 1501, 52, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[87369, 2633, 829, 28, 73, "Input"],
Cell[88201, 2663, 1499, 52, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89737, 2720, 167, 5, 36, "Input"],
Cell[89907, 2727, 118, 2, 35, "Output"]
}, Open  ]],
Cell[90040, 2732, 163, 3, 36, "Input"],
Cell[90206, 2737, 256, 8, 82, "Input"],
Cell[CellGroupData[{
Cell[90487, 2749, 2858, 95, 194, "Input"],
Cell[93348, 2846, 522, 10, 27, "Message"],
Cell[93873, 2858, 508, 14, 40, "Output"],
Cell[94384, 2874, 523, 10, 27, "Message"],
Cell[94910, 2886, 509, 14, 40, "Output"],
Cell[95422, 2902, 522, 10, 27, "Message"],
Cell[95947, 2914, 509, 14, 40, "Output"],
Cell[96459, 2930, 517, 10, 27, "Message"],
Cell[96979, 2942, 509, 14, 40, "Output"],
Cell[97491, 2958, 366, 8, 35, "Output"],
Cell[97860, 2968, 365, 8, 35, "Output"],
Cell[98228, 2978, 367, 8, 35, "Output"],
Cell[98598, 2988, 366, 8, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99001, 3001, 146, 5, 36, "Input"],
Cell[99150, 3008, 162, 4, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99349, 3017, 1859, 63, 239, "Input"],
Cell[101211, 3082, 205, 4, 35, "Output"],
Cell[101419, 3088, 204, 4, 35, "Output"],
Cell[101626, 3094, 204, 4, 35, "Output"],
Cell[101833, 3100, 224, 5, 35, "Output"],
Cell[102060, 3107, 204, 4, 35, "Output"],
Cell[102267, 3113, 224, 5, 35, "Output"],
Cell[102494, 3120, 223, 5, 35, "Output"],
Cell[102720, 3127, 204, 4, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102961, 3136, 5122, 152, 487, "Input"],
Cell[108086, 3290, 1574, 28, 1359, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109697, 3323, 287, 9, 36, "Input"],
Cell[109987, 3334, 180, 4, 35, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
